home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
pgm_ctrl
/
cuactrls
/
ccommand.frm
< prev
next >
Wrap
Text File
|
1995-05-22
|
23KB
|
699 lines
VERSION 2.00
Begin Form frmCommand
BackColor = &H00FFFFFF&
BorderStyle = 3 'Fixed Double
Caption = "Command Button Demo"
ClientHeight = 5265
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 7290
ClipControls = 0 'False
Height = 5670
Icon = 0
Left = 1035
LinkTopic = "Form2"
ScaleHeight = 5265
ScaleWidth = 7290
Top = 1140
Width = 7410
Begin CUACommand cmd1
Caption = "Underline"
Height = 345
Index = 40
Left = 5910
StandardButton = 40 'Under
TabIndex = 42
Top = 4800
Width = 1260
End
Begin CUACommand cmd1
Caption = "Italic"
Font3D = 2 'Raised
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 39
Left = 4515
StandardButton = 39 'Italic
TabIndex = 41
Top = 4800
Width = 1260
End
Begin CUACommand cmd1
Caption = "Bold"
Font3D = 2 'Raised
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 38
Left = 4515
StandardButton = 38 'Bold
TabIndex = 37
Top = 4425
Width = 1260
End
Begin CUACommand cmd1
Caption = "Margin"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 37
Left = 3075
StandardButton = 34 'Just
TabIndex = 40
Top = 4800
Width = 1260
End
Begin CUACommand cmd1
Caption = "Right"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 36
Left = 1650
StandardButton = 37 'Right
TabIndex = 39
Top = 4800
Width = 1260
End
Begin CUACommand cmd1
Caption = "Center"
Height = 345
Index = 35
Left = 225
StandardButton = 36 'Center
TabIndex = 38
Top = 4800
Width = 1260
End
Begin CUACommand cmd1
Caption = "Left"
Height = 345
Index = 34
Left = 225
StandardButton = 35 'Left
TabIndex = 34
Top = 4425
Width = 1260
End
Begin CUACommand cmd2
Caption = "Terminal"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 720
Index = 1
Left = 5940
Picture = CCOMMAND.FRX:0000
PictureAlign = 1 'Top
TabIndex = 44
Top = 2175
Width = 1155
End
Begin CUACommand cmd2
Caption = "Line"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 720
Index = 0
Left = 5940
Picture = CCOMMAND.FRX:021A
PictureAlign = 1 'Top
TabIndex = 43
Top = 1425
Width = 1155
End
Begin CUACommand cmd1
Caption = "Lock"
Height = 345
Index = 33
Left = 225
StandardButton = 33 'Lock
TabIndex = 30
Top = 4050
Width = 1260
End
Begin CUACommand cmd1
Caption = "Contents"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 32
Left = 1650
StandardButton = 32 'Book
TabIndex = 31
Top = 4050
Width = 1260
End
Begin CUACommand cmd1
Caption = "Index"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 31
Left = 1650
StandardButton = 31 'Index
TabIndex = 35
Top = 4425
Width = 1260
End
Begin CUACommand cmd1
Caption = "Delete"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 30
Left = 3075
StandardButton = 30 'Drop
TabIndex = 36
Top = 4425
Width = 1260
End
Begin CUACommand cmd1
Caption = "Back"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 29
Left = 3075
StandardButton = 29 'Back
TabIndex = 32
Top = 4050
Width = 1260
End
Begin CUACommand cmd1
Caption = "Stop"
Font3D = 2 'Raised
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 28
Left = 4515
StandardButton = 28 'Stop
TabIndex = 33
Top = 4050
Width = 1260
End
Begin CUACommand cmd1
Caption = "Pallette"
Font3D = 2 'Raised
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 27
Left = 4515
StandardButton = 27 'Palette
TabIndex = 29
Top = 3675
Width = 1260
End
Begin CUACommand cmd1
Caption = "Mail"
Font3D = 2 'Raised
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 26
Left = 4515
StandardButton = 26 'Mail
TabIndex = 25
Top = 3300
Width = 1260
End
Begin CUACommand cmd1
Caption = "Exit"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 25
Left = 1650
StandardButton = 8 'Exit
TabIndex = 27
Top = 3675
Width = 1260
End
Begin CUACommand cmd1
Caption = "Cancel"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 24
Left = 1650
StandardButton = 2 'Cancel
TabIndex = 23
Top = 3300
Width = 1260
End
Begin CUACommand cmd1
Caption = "OK"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 23
Left = 1650
StandardButton = 1 'OK
TabIndex = 19
Top = 2925
Width = 1260
End
Begin CUACommand cmd1
Caption = "Descending"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 22
Left = 3075
StandardButton = 20 'Descending
TabIndex = 28
Top = 3675
Width = 1260
End
Begin CUACommand cmd1
Caption = "Ascending"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 21
Left = 3075
StandardButton = 19 'Ascending
TabIndex = 24
Top = 3300
Width = 1260
End
Begin CUACommand cmd1
Caption = "New rec"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 20
Left = 3075
StandardButton = 18 'New rec
TabIndex = 20
Top = 2925
Width = 1260
End
Begin CUACommand cmd1
Caption = "Help"
Height = 345
Index = 19
Left = 225
StandardButton = 13 'MHelp
TabIndex = 26
Top = 3675
Width = 1260
End
Begin CUACommand cmd1
Caption = "Help"
Height = 345
Index = 18
Left = 225
StandardButton = 3 'Help
TabIndex = 22
Top = 3300
Width = 1260
End
Begin CUACommand cmd1
Caption = "View"
Font3D = 2 'Raised
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 17
Left = 4515
StandardButton = 25 'Look
TabIndex = 21
Top = 2925
Width = 1260
End
Begin CUACommand cmd1
Caption = "Zoom"
Font3D = 2 'Raised
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 16
Left = 4515
StandardButton = 24 'Zoom
TabIndex = 17
Top = 2550
Width = 1260
End
Begin CUACommand cmd1
Caption = "Replace"
Font3D = 2 'Raised
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 15
Left = 4515
StandardButton = 23 'Replace
TabIndex = 13
Top = 2175
Width = 1260
End
Begin CUACommand cmd1
Caption = "Find next"
Font3D = 2 'Raised
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 14
Left = 4515
StandardButton = 22 'FindNext
TabIndex = 9
Top = 1800
Width = 1260
End
Begin CUACommand cmd1
Caption = "Find"
Font3D = 2 'Raised
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 13
Left = 4515
StandardButton = 21 'Find
TabIndex = 5
Top = 1425
Width = 1260
End
Begin CUACommand cmd1
Caption = "Last"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 12
Left = 3075
StandardButton = 17 'Last
TabIndex = 16
Top = 2550
Width = 1260
End
Begin CUACommand cmd1
Caption = "Next"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 11
Left = 3075
StandardButton = 16 'Next
TabIndex = 12
Top = 2175
Width = 1260
End
Begin CUACommand cmd1
Caption = "Previous"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 10
Left = 3075
StandardButton = 15 'Prev
TabIndex = 8
Top = 1800
Width = 1260
End
Begin CUACommand cmd1
Caption = "First"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 9
Left = 3075
StandardButton = 14 'First
TabIndex = 4
Top = 1425
Width = 1260
End
Begin CUACommand cmd1
Caption = "Undo"
Enabled = 0 'False
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 8
Left = 1650
StandardButton = 12 'Undo
TabIndex = 15
Top = 2550
Width = 1260
End
Begin CUACommand cmd1
Caption = "Paste"
Enabled = 0 'False
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 7
Left = 1650
StandardButton = 11 'Paste
TabIndex = 11
Top = 2175
Width = 1260
End
Begin CUACommand cmd1
Caption = "Copy"
Enabled = 0 'False
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 6
Left = 1650
StandardButton = 10 'Copy
TabIndex = 7
Top = 1800
Width = 1260
End
Begin CUACommand cmd1
Caption = "Cut"
Enabled = 0 'False
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 345
Index = 5
Left = 1650
StandardButton = 9 'Cut
TabIndex = 3
Top = 1425
Width = 1260
End
Begin CUACommand cmd1
Caption = "Print"
Height = 345
Index = 4
Left = 225
StandardButton = 7 'Print
TabIndex = 18
Top = 2925
Width = 1260
End
Begin CUACommand cmd1
Caption = "Save"
Height = 345
Index = 3
Left = 225
StandardButton = 6 'Save
TabIndex = 14
Top = 2550
Width = 1260
End
Begin CUACommand cmd1
Caption = "Open"
Height = 345
Index = 2
Left = 225
StandardButton = 5 'Open
TabIndex = 10
Top = 2175
Width = 1260
End
Begin CUACommand cmd1
Caption = "New"
Height = 345
Index = 1
Left = 225
StandardButton = 4 'New
TabIndex = 6
Top = 1800
Width = 1260
End
Begin CUACommand cmd1
Caption = "Standard"
Height = 345
Index = 0
Left = 225
TabIndex = 2
Top = 1425
Width = 1260
End
Begin CUACommand cmdOK
Caption = "OK"
Default = -1 'True
Height = 345
Left = 5160
StandardButton = 1 'OK
TabIndex = 1
Top = 105
Width = 1260
End
Begin CUALabel lbl
Caption = "CUACommand is fully compatible with the standard button, including ""Cancel"" and ""Default"". In addition, CUACommand may contain pictures. 40 common pictures are built in for practical and system resurce preserving reasons."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000080&
Height = 810
Index = 6
Left = 225
TabIndex = 0
Top = 75
Width = 4740
End
End
Option Explicit
Sub cmdOK_Click ()
Unload Me
End Sub
